home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 79
/
Tiger_Disk_079_2000-10_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_42
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
584b
|
4 lines
1 poke53280,.:poke53281,.::poke53265,80:print"[147][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:forc=6to20step.9999:poke646,c+1:poke53282,peek(646):print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [145][145]";:poke53282,c:poke53283,c+1:print" [200][201][197][210] [201][211][212] [211][195][200][204][213][211][211]! [160][160][160] [160][160][160] [160][160][160] [145]":poke53284,c
13 printtab(c*rnd(1)+c)"[160][160][160][160][160] [160][160][160][160][160] [160][160][160][160][160] [160][160][160][160][160] ":print"[160] [160][160] [160][160][160] [160][160][160][160] [160][160][160][160][160] [160][160][160][160][160][160] [145]",:next:print"";:forc=1to14step.7:poke646,c:poke53282,c:print"[157][157][157][157][157][157][157][157][157] [160] [160] [160] [160] [160] [160] [160] [160][160][211][195][200][193][196][197][160][160] [160][160] [160][160] [160][160] ",:poke53283,c+1:poke646,c*rnd(1)+c:::poke53284,c+1:next
22 forz=1to1000:next:poke56325,1::print"[147] lukian ";::print"";:poke56325,55:fort=1to333:next:sys2048